home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yammailcheck / mailcheck < prev    next >
AmigaDOS Script File  |  1997-03-22  |  1KB  |  75 lines
  1. .key STEP/S
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: MailCheck 1.2 (16.03.97)
  6. ;                    
  7. ; Automated e-mail checking with Miami and YAM
  8. ;                         
  9. ; ©1997 Robert Wilson                
  10.  
  11. Failat 25
  12.  
  13. LAB Start
  14.  
  15. If $MCMailRun EQ "1"
  16.   SetEnv MCMailRun 0
  17.   Skip End
  18. EndIf
  19.  
  20. SetEnv MCMailRun 1
  21. SetEnv MCOkay 0
  22.  
  23. If "{Step}" NOT EQ "STEP"
  24.   Skip Check
  25. Else
  26.   If $MCStep EQ "1"
  27.     SetEnv MCStep 0
  28.     SetEnv MCMailRun 0
  29.   Skip End
  30. EndIf
  31.  
  32. LAB Check
  33.  
  34. ; **************************
  35.  
  36. CheckModem $MCSerial 0 >NIL: ; <--- Do you need to change this?
  37.  
  38. ; **************************
  39.  
  40. If $RC EQ 0
  41.   SetEnv ModemStatus 0
  42. Else
  43.   SetEnv ModemStatus 1
  44. EndIf
  45.  
  46. If Not Exists s:MailCheck.log
  47.     echo "" >s:MailCheck.log
  48.     echo MailCheck by Robert Wilson >>s:MailCheck.log
  49.     echo -------------------------- >>s:MailCheck.log
  50.     echo "" >>s:MailCheck.log
  51. EndIf
  52.  
  53. date >Env:MCTempDate
  54. GetEnv MCTempDate >> s:MailCheck.log
  55.  
  56. rx Rexx:MailCheck.rexx >> s:MailCheck.log
  57.  
  58. If $MCOkay EQ "1"
  59.   If $MCLastRun EQ "1"
  60.     OkayDokey SC=Workbench WI="LastCheck V1.0" CAN ACT CX QUIET QUITAFTER
  61.     Wait 1
  62.     Unsetenv Answer
  63.   EndIf
  64.  
  65.   SetEnv MCLastRun 0
  66.  
  67.   Copy Env:MCDate EnvArc: QUIET CLONE
  68.   Copy Env:MCMail EnvArc: QUIET CLONE
  69. EndIf
  70.  
  71. SetEnv MCMailRun 0
  72.  
  73. LAB End
  74.  
  75. Quit